home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 5 / Apprentice-Release5.iso / Environments / CGIshell 1.3.2 / Pocket 6.5 / Source / DICTResource.asm < prev    next >
Assembly Source File  |  1993-06-15  |  1KB  |  53 lines
  1. ; pForthDict.asm
  2. ; Pocket Forth version of Flint  7:48:10 PM  1/12/87
  3. ; put into "DICT" resource 1:27:38 PM  1/23/87
  4. ; change DP to Dict and CP to DP 4:48:49 PM  1/24/87
  5. ; add optional base expansion 11:33:21 PM  2/3/87
  6. ; restructure 8:22:09 AM  2/11/87
  7. ; version 0.3  12:53:54 PM  1/21/88
  8. ; Fri Apr 29, 1988 10:17:36 v 0.4
  9. ; 11:55:00 PM 6/3/91 restructure preamble
  10. ; Thu Apr 02, 1992 12:00:00 grow return
  11. ; Fri Jan 22, 1993 19:28:00 0.6.2
  12. ; Fri Jun 06, 1993 05:13:00 0.6.3
  13.  
  14. WHeight    EQU    178
  15. WWidth    EQU    384
  16. CR    EQU    $0D
  17. BS    EQU    8
  18. BL    EQU    32
  19.  
  20. MACRO    Counter =    D7 |        ; Character count
  21. MACRO    Dict =    D6 |            ; _DICT_ionary last word (rel.addr)
  22. MACRO    RS =    A7 |            ; _R_eturn (and system) _S_tack
  23. MACRO    PS =    A6 |            ; _P_arameter _S_tack
  24. MACRO    IS =    A4 |            ; _I_nput _S_tream
  25. MACRO    BP =    A3 |            ; _B_ase _P_ointer
  26. MACRO    DP =    A2 |            ; _D_ictionary _P_ointer
  27.  
  28. MACRO    Base =    Bottom |        ; address of the bottom address
  29. MACRO    theLink =  Base-6 |        ; dictionary search link address
  30.  
  31. INCLUDE    Traps.txt
  32. INCLUDE    Macros.txt
  33.  
  34. .ALIGN 2     ;     TYPE    ID#   Title   attribute: locked
  35. RESOURCE    'DICT'    257  'Pocket'    16
  36.  
  37. ; ----- start of code ------
  38.  
  39. Bottom:    JMP    Cold            ; first time run
  40. GRet:    LEA    Bottom,BP        ; reset the base pointer
  41.       LEA    0(BP,D1.W),DP        ; abs.addr into register
  42.     LEA    0(BP,D2.W),IS
  43.     JSR    toabs-base(BP)
  44.     MOVE.L    (PS)+,(RS)
  45.     RTS
  46.  
  47.  
  48. INCLUDE    Interface.txt            ; the interface
  49. INCLUDE Interpreter.txt            ; the interpreter
  50. INCLUDE    Dictionary.txt            ; the dictionary
  51.  
  52. END
  53.